      Subroutine Timer(ITime)
      !*****************************************************************
      real tarray(2)
      ITime=etime(tarray)*100
      return
      end
